home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
bbs
/
msgr10.zip
/
MSGR.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-05-21
|
3KB
|
269 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 2548 bytes 08/30/122 01:58:48am
'! Code Segment Size :2380 bytes
'! Data Segment Size :4847 bytes
'! String Segment Size:168 bytes
'! Compiled with WCC version 4.12
Type Type26
Filler0(1 To 6) As Byte
s6 As String*70
Filler76(1 To 14) As Byte
s90 As String*70
Filler160(1 To 14) As Byte
s174 As String*70
Filler244(1 To 8) As Byte
dt252 As DateTime
End Type
Dim s4463 As String
Dim s4467 As String
Dim s4471 As String
Dim s4475 As String
Dim s4479 As String
Dim i4487 As Integer
Dim i4489 As Integer
Dim i4491 As Integer
Dim i4493 As Integer
Dim i4495 As Integer
Dim i4497 As Integer
Dim i4499 As Integer
Dim i4501 As Integer
Dim i4503 As Integer
Dim i4505 As Integer
Dim i4507 As Integer
Dim i4509 As Integer
Dim i4511 As Integer
Dim i4513 As Integer
Dim i4515 As Integer
Dim s4517 As String
Dim mh4521 As MessageHeader
Dim dt4841 As DateTime
s4463 = "MSGR.CFG"
If Exists(ProgPath + s4463) Then
Open ProgPath + s4463 For Input As 1
Input #1, s4467
Input #1, s4471
Input #1, s4517
Input #1, s4475
Input #1, s4479
Input #1, i4487
Input #1, i4489
Input #1, i4491
Input #1, i4493
Input #1, i4495
Input #1, i4497
Input #1, i4499
Input #1, i4501
Input #1, i4503
Input #1, i4505
Input #1, i4507
Input #1, i4509
Input #1, i4511
Input #1, i4513
Input #1, i4515
Close 1
GoTo 307
Else
263 Cls
Print ""
Print ""
Print "@0A@Sorry, configuration file not found. Tell the Sysop."
Delay 3
GoTo 2289
307 CopyFile(ProgPath + s4479, TempPath + s4479)
Open ProgPath + s4479 For Append As 1
Print #1, ""
Print #1, "This message was posted using The Messenger v 1.0 for Wildcat!"
Close 1
If i4487 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 471
Else
465 GoTo 2289
471 Join i4487
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4489 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 598
Else
592 GoTo 2289
598 Join i4489
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4491 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 725
Else
719 GoTo 2289
725 Join i4491
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4493 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 852
Else
846 GoTo 2289
852 Join i4493
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4495 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 979
Else
973 GoTo 2289
979 Join i4495
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4497 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1106
Else
1100 GoTo 2289
1106 Join i4497
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4499 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1233
Else
1227 GoTo 2289
1233 Join i4499
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4501 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1360
Else
1354 GoTo 2289
1360 Join i4501
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4503 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1487
Else
1481 GoTo 2289
1487 Join i4503
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4505 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1614
Else
1608 GoTo 2289
1614 Join i4505
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4507 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1741
Else
1735 GoTo 2289
1741 Join i4507
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4509 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1868
Else
1862 GoTo 2289
1868 Join i4509
AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
If i4511 <> 0 Then
mh4521.From = s4467
mh4521.To = s4517
mh4521.Subject = s4475
CurrentDateTime dt4841
mh4521.MsgTime = dt4841 '! 6 bytes
GoTo 1995